home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / degree2r / notoim~1.txt < prev    next >
Text File  |  1999-07-26  |  191b  |  11 lines
  1. <%
  2. function imgno(no)
  3. l=len(no)
  4. i = 1
  5. for i = i to l
  6. num = mid(no,i,1)
  7. display = display & "<img src=/images/counter/b" &  num & ".gif>"
  8. next
  9. response.write display
  10. end function
  11. %>